VERSION 5.00
Object = "{97CECB1B-FDD6-4544-8A18-C0D4A587D4C6}#1.0#0"; "ComUnionReport.tlb"
Begin VB.Form frmComUnionBusinessIntelligenceAdmin 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   8160
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11895
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8160
   ScaleWidth      =   11895
   ShowInTaskbar   =   0   'False
   Begin ComUnionReportCtl.BIAdmin BIAdmin1 
      Height          =   6735
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   9735
      Object.Visible         =   "True"
      Enabled         =   "True"
      ForegroundColor =   "-2147483630"
      BackgroundColor =   "16243138"
      ReportModuleIndex=   "-1"
      BackColor       =   "194, 217, 247"
      Font            =   "Tahoma, 8.25pt"
      Location        =   "8, 8"
      Name            =   "BIAdmin"
      Size            =   "649, 449"
      Object.TabIndex        =   "0"
   End
End
Attribute VB_Name = "frmComUnionBusinessIntelligenceAdmin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'IT Group Inc. 2005.09.23

Option Explicit

'Object variables


Public sBit As String

'Security Acess Level variables
Public lACNew As Boolean
Public lACEdit As Boolean
Public lACDelete As Boolean
Public lACPost As Boolean
Public lACCancel As Boolean
Public lACPrint As Boolean


'Form mode enumeration
Enum eBIAMode
    Normal
    AddNewEdit
    Find
End Enum
Public Mode As eBIAMode


'Set Your Object
Private Sub Form_Load()
    Set FrmName = Me
    FormSetup
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , , , , True
    BitVisible ITGLedgerMain.tbrMain
    
End Sub

'Activate your Toolbar Mode
Private Sub Form_Activate()
    TBBitReload
End Sub

'Release your Object
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
   
    CloseMenuTab ITGLedgerMain
    
    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True
    BitVisible ITGLedgerMain.tbrMain
    
    Set frmComUnionBusinessIntelligenceAdmin = Nothing

    lCloseWindow = True
    
'    'oForm(Me.Tag).Mode = 1
'    'oForm(Me.Tag).Tag = Me.Tag
End Sub

'Close active window
Public Sub TBCloseWindow()
    Unload Me
End Sub

'Reload menu buttons (do not delete this sub)
Public Sub TBBitReload()
    BitVisible ITGLedgerMain.tbrMain
    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
    Set FrmName = Me
End Sub

